#lang racket
(define-struct Time (hour minute second))
(define-struct Date (year month date))
(define-struct Date-Time (date time))

(define (getDate D)
  (Date-Time-date D)
  )

(define (getTime D)
  (Date-Time-time D)
  )

(define (Year date)
  (Date-year date)
  )

(define (Month date)
  (Date-month date)
  )

(define (Datex date)
  (Date-date date)
  )

(define (Hour time)
  (Time-hour time)
  )

(define (Minute time)
  (Time-minute time)
  )

(define (Second time)
  (Time-second time)
  )

(define current-time (make-Time 13 20 10))
(define current-date (make-Date 2014 02 26))
(define current (make-Date-Time current-date current-time))

(Year (getDate current))
(Month (getDate current))
(Datex (getDate current))
(Hour (getTime current))
(Minute (getTime current))
(Second (getTime current))


